home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / ImageMaster_d3.adf / piarc.lzh.parta / FlickWR4.rexx < prev    next >
OS/2 REXX Batch file  |  1993-03-23  |  1KB  |  55 lines
  1. /*
  2.     This phase calls the delta generator with the -l switch
  3.     to generate the loop deltas
  4.  */
  5. call pragma('stack',20000);
  6.  
  7. /*
  8.  * open rexxsupport.library -- needed for some functions
  9.  */
  10. if ~show('L',"rexxsupport.library") then do
  11.   if addlib('rexxsupport.library',0,-30,0) then do
  12.       /* everything's ok */
  13.     end;
  14.   else do
  15.     say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
  16.     say 'Cannot operate FlickWR.rexx without this library - sorry!';
  17.     exit 10;
  18.     end;
  19.   end;
  20.  
  21. prtnme = 'IP_Port'; /* assume Image Professional */
  22. if show('P','IP_Port') = 0 then do
  23.   if show('P','IM_Port') = 0 then do
  24.     say "Can't find image processor's ARexx port!!!"; /* not running? */
  25.     say "This script requires IP, IM or IM F/c to run!";
  26.     exit(20);
  27.     end;
  28.   else do
  29.     prtnme = 'IM_Port'; /* That's the thing about assumptions... */
  30.     end;                 /* We make em, user's break em.          */
  31.   end;
  32.  
  33. options;
  34. address;
  35.  
  36.   prevpath = 'ram:'; /* put user in ram to start with... */
  37.  
  38.   call open(fhandle,'ram:IP_FLICKWR.CFG','read');      /* open the file */
  39.    jiffies = readln(fhandle);
  40.    flickfile = readln(fhandle);
  41.    prefs = readln(fhandle);
  42.   call close(fhandle);                     /* close the file    */
  43.  
  44.   if prefs = 0 then do
  45.     address command 'cmpi:FlickWR -l '||jiffies||' '||flickfile;
  46.     end;
  47.  
  48.   address command 'delete >nil: ram:IP_FLICKWR.CFG';
  49.  
  50.   address(prtnme);
  51.   'finish';
  52.   exit 0;
  53.  
  54.  
  55.